home *** CD-ROM | disk | FTP | other *** search
/ Shirley Barber's Fairies: Create, Paint & Play / Fairies.iso / pc / Files / InstallRun.exe / InstallRun.dxr / 00010_Change Resolution & Loop for X Seconds.ls next >
Encoding:
Text File  |  2003-10-16  |  1.1 KB  |  33 lines
  1. property myRes, myDepth, myXRes, myYRes
  2. global scrWidth, scrHeight, scrDepth, whatPath
  3.  
  4. on enterFrame me
  5.   if the platform contains "Windows,32" then
  6.     case myRes of
  7.       "640x480":
  8.         myXRes = 640
  9.         myYRes = 480
  10.       "800x600":
  11.         myXRes = 800
  12.         myYRes = 600
  13.       "1024x768":
  14.         myXRes = 1024
  15.         myYRes = 768
  16.     end case
  17.     if (scrWidth = baScreenInfo("width")) and (scrHeight = baScreenInfo("height")) and (scrDepth = baScreenInfo("depth")) then
  18.       Ok = baSetDisplay(myXRes, myYRes, 32, "temp", 0)
  19.     end if
  20.     if (scrWidth = baScreenInfo("width")) and (scrHeight = baScreenInfo("height")) and (scrDepth = baScreenInfo("depth")) then
  21.       Ok = baSetDisplay(myXRes, myYRes, 24, "temp", 0)
  22.     end if
  23.     if (scrWidth = baScreenInfo("width")) and (scrHeight = baScreenInfo("height")) and (scrDepth = baScreenInfo("depth")) then
  24.       Ok = baSetDisplay(myXRes, myYRes, 16, "temp", 0)
  25.     end if
  26.   end if
  27.   go(marker("1"), "Intro.dxr")
  28. end
  29.  
  30. on getPropertyDescriptionList me
  31.   return [#myRes: [#comment: "Change Resolution to", #format: #string, #range: ["640x480", "800x600", "1024x768"], #default: "800x600"]]
  32. end
  33.